home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / parad / sep95 / jens1f4.gif

< prev

next >

Graphics Interchange Format  |  1996-07-10  |  10KB  |  550x449  |  4-bit (5 colors)

Labels: text | electronics | display | screenshot | software | number | web page
OCR: FIG 04.FSL :: #Form1 :: UpdateContactDate method UpdateContactDate(const coName String) Logical var myTC TCursor endVar if myTC.open("Company.db") then my TC . lock ("Write") if myTC.qLocate (coName) then ; Prevent changes to table ; Locate a given company my TC . edit ( ) ; Change Last_Contact field to today's date myTC. "Last_Contact" = date() myTC. endEdit( ) my TC . unlock ("Write") myTC . close( ) return True else return False endIf else errorClear( ) ; Clear the error stack return False endIf endmethod Edit Line: 11 Col: 1

---